home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / Serious Demos / Visual MacStandardBasic Demo / Samples / Speech Demo / Form1 next >
Text File  |  1997-10-01  |  3KB  |  161 lines
  1. MacStandardBasic Form Version 3.0
  2.  
  3.     FormBegin
  4.       Name=Form1
  5.       Title=Speech Demo
  6.       Left=100
  7.       Top=50
  8.       Width=340
  9.       Height=300
  10.       Sub Proc.=None
  11.       Visible=1
  12.       Style=1
  13.       Enabled=1
  14.       Font=Geneva
  15.       FontSize=12
  16.       FontStyle=0
  17.       Show Grid=0
  18.       Grid Snap=1
  19.       Grid Size=8
  20.       Min. Width=100
  21.       Max. Width=2000
  22.       Min. Height=100
  23.       Max. Height=2000
  24.       AutoCenter=0
  25.       ForeColor=0 0 0
  26.       BackColor=19007 40726 65535
  27.     FormEnd
  28.  
  29.     ControlBegin=TextBox
  30.       Name=TextBox1
  31.       Text=
  32.       Left (x)=24
  33.       Top (y)=40
  34.       Width=296
  35.       Height=96
  36.       Sub Proc.=None
  37.       Visible=1
  38.       Value=0
  39.       Enabled=1
  40.       Font=Geneva
  41.       FontSize=12
  42.       FontStyle=0
  43.       ScrollBar=1
  44.       Read Only=0
  45.       Tab Index=1
  46.       Opt20=1
  47.       Frame=1
  48.       ForeColor=0 0 0
  49.       BackColor=65535 65535 65535
  50.     ControlEnd
  51.  
  52.     ControlBegin=Label
  53.       Name=Label1
  54.       Text=Enter Speech Text Here
  55.       Left (x)=24
  56.       Top (y)=16
  57.       Width=192
  58.       Height=16
  59.       Sub Proc.=None
  60.       Visible=1
  61.       Enabled=1
  62.       Font=Geneva
  63.       FontSize=12
  64.       FontStyle=1
  65.       Opt20=1
  66.       ForeColor=65535 64746 18351
  67.       BackColor=19007 40726 65535
  68.     ControlEnd
  69.  
  70.     ControlBegin=Button
  71.       Name=Button1
  72.       Text=Speech Output
  73.       Left (x)=72
  74.       Top (y)=184
  75.       Width=201
  76.       Height=33
  77.       Sub Proc.=Button1_Click
  78.       Visible=1
  79.       Value=0
  80.       Enabled=1
  81.       Opt20=1
  82.     ControlEnd
  83.  
  84.     ControlBegin=Button
  85.       Name=Button2
  86.       Text=Done
  87.       Left (x)=72
  88.       Top (y)=232
  89.       Width=201
  90.       Height=33
  91.       Sub Proc.=Button2_Click
  92.       Visible=1
  93.       Value=0
  94.       Enabled=1
  95.       Opt20=2
  96.     ControlEnd
  97.  
  98.     ControlBegin=Button
  99.       Name=Button3
  100.       Text=Clear Text
  101.       Left (x)=96
  102.       Top (y)=144
  103.       Width=152
  104.       Height=16
  105.       Sub Proc.=Button3_Click
  106.       Visible=1
  107.       Value=0
  108.       Enabled=1
  109.       Opt20=3
  110.     ControlEnd
  111.  
  112. Start
  113.     Dim A
  114.  
  115.     CreateTheMenus
  116.     Form Form1
  117.  
  118.     A=0
  119.     Do While A=0
  120.     Loop
  121. Finish
  122.  
  123. Sub CreateTheMenus( )
  124.     MenuApple
  125.     MenuAddItem 1, "About Speech Demo", "", AboutTheApp
  126.     MenuDesk
  127.     MenuAdd 2, "File", None
  128.     MenuAddItem 2, "Quit", "Q", QuitTheApp
  129.  
  130. EndSub
  131.  
  132. Sub QuitTheApp( )
  133.     End
  134. EndSub
  135.  
  136. Sub AboutTheApp( )
  137.     Dim a
  138.     a = MsgBox ("Speech Demo", 0)
  139. EndSub
  140.  
  141. Sub Button2_Click( )
  142.     End
  143.  
  144.  
  145. EndSub
  146.  
  147. Sub Button1_Click( )
  148.     Dim A$(1000)
  149.     
  150.     Say CtlText( TextBox1 )
  151.  
  152.  
  153. EndSub
  154.  
  155. Sub Button3_Click( )
  156.     CtlText TextBox1, "",0
  157.  
  158.  
  159. EndSub
  160.  
  161.